Tech Arsenal 1

home *** CD-ROM | disk | FTP | other *** search

/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / vbengine.zip / DEMO2.FRM (.txt) < prev next >

Wrap

Visual Basic Form | 1993-04-04 | 9KB | 238 lines

Form1 #VBENGINE SAMPLE APPLICATION - DEMO2 Form1, Label1 Customer: Text1 Label5 Address: Text2 Label6 City: Text3 Label7 State: Text4 Label8 Text5 Label9 Phone: Text6 TopButton BottomButton Bottom PreviousButton Previous NextButton UpdateButton Update InsertButton Insert DeleteButton Delete QuitButton ClearButton Clear Command1_Click result OpenEngine CloseEngine OpenTable Data1 DBase TableJ TableNamed IndexID SaveChgs CloseTable9 GetRecord Field, FieldName SetField GetFieldTypeE FieldType GetField FieldValue Text1v Text2 Text3 Text4 NextRecord PreviousRecord PutField LastRecord UpdateRecordK SearchField Record SearchMode FIRSTRECORDh KeySearchH SearchKey' RecordLock; RecordUnlockLock RecordUnlock RefreshTable TableLock LockTable FULLLOCK UnlockTable FALSE FlushBuffers] MyName GetUserName Form_Click Form_Load? Form_UnloadZ Cancel GetIT. FillForm Command4_Click/ Command3_ClickA Command9_ClickS Command2_Clicke Command5_Clickw Command6_Click Command7_Click InsertRecord Command8_Click DeleteRecordj Text5 Text6 Text7 Text8 UpdateM Text9 Text10 Insert Text4_Change SHARE MASTERINDEX Form_DblClick EmptyTable MNU_Click EncryptTable DecryptTable Password Data2\ CreateTable Label4_Click NFlds FldTypes FldNames: Testy NewTable NFields FieldNames FieldTypesm AddKey PRIMARY DeleteKey2 GotoRecord RecordNumber GetRecordNumber IsFieldBlank BlankPtr PutBlank DataTablev Customer SaveEveryChange TopButton_Click BottomButton_Click PreviousButton_Click NextButton_Click DeleteButton_Click UpdateButton_Click InsertButton_Click QuitButton_Clickl Text1_Change status ClearButton_Click Text1_LostFocus KeSearch SEARCHFIRST NewNamer Create a database variable using the DataTable structure for database operations Form_Load Initialize VBENGINE so that database capabilities are enabled. Call OpenEngine() with a string representing the user's name.. and using SHARE representing file sharing mode.. Visual Basic Now put the data table file name (C:\CUSTOMER.DB) in the data structureA C:\CUSTOMER" We will use the tables master index: We will buffer data changese Now open the table Now read in the data from the first record and place it in our form. Form_Unload FillForm Get the record from the table Now lets get the customers name and put it in our form.f Specify what field we are interested in. Read in the value. Place it in the form. Now do the same thing for every field in our form .... Address" State" Phone" Update Here we do the same process found in the Insert subroutine.. See that routine for reference.. Address" State" Phone" Here we UPDATE the current record in the table.. Insert Here we are transfering information from our form to the table.. We must first associate a form value with specific fields in our table.. We will make such associations by first specifying the data table field of interest. Then take the data from the corresponding form field and thenn put the field into the current record. Specify the field in the data table. Place corresponding form data into the database structures FieldValue member. Now put the field structure into the current record. Now repeat the process for all form fields.. Address" State" Phone" Now INSERT the current record into the table.. MNU_Click TopButton_Click Move to the first record in the table. Now fill in the form BottomButton_Click Move to the last record in the table.. Now fill in the form PreviousButton_Click Move to the previous record in the table.L Now fill in the form.r NextButton_Click Move to the next record in the table.b Now fill in the form.r DeleteButton_Click Delete the current record from the data table. Now fill in the form.c UpdateButton_Click InsertButton_Click QuitButton_Click Close the data table.c Shut down the VBENGINE environment.d Now quit this application. ClearButton_Click Text1_LostFocus For error handling Temp variable for new customer namew Primary key field is Namew We will search for user supplied customer name We will search from 1st record to 1st matche Search on the 1st field of primary index This table only has 1 key field anyway.p Place search criteria into the database engine Start to search on the Primary index If search failed Put new customer name in temporary variablen Clear the form u Place new name back on the forma Return to user input If search was successfullf Place the customer's info on the formo